/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Prog / H-K / Hello Tabby.sit / HelloTabby.p

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 48 65 6c 6c 6f 54 | 61 62 62 79 2e 70 00 00 |..HelloT|abby.p..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 50 4a 4d | 4d 00 00 00 00 00 00 00 |.TEXTPJM|M.......|
|00000050| 00 00 00 00 00 24 8f 00 | 00 01 96 a0 ee b5 ce a0 |.....$..|........|
|00000060| ee b5 ce 00 00 0c 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 c8 b7 00 00 |........|........|
|00000080| 75 6e 69 74 20 48 65 6c | 6c 6f 54 61 62 62 79 3b |unit Hel|loTabby;|
|00000090| 0d 0d 7b 20 57 72 69 74 | 74 65 6e 20 62 79 20 50 |..{ Writ|ten by P|
|000000a0| 65 74 65 20 4a 6f 68 6e | 73 6f 6e 2c 20 47 6c 61 |ete John|son, Gla|
|000000b0| 73 73 65 6c 6c 20 50 61 | 72 6b 20 42 42 53 2c 20 |ssell Pa|rk BBS, |
|000000c0| 32 31 33 2d 32 35 38 2d | 37 36 34 39 09 09 09 09 |213-258-|7649....|
|000000d0| 09 7d 0d 0d 7b 20 53 6f | 75 72 63 65 20 66 6f 72 |.}..{ So|urce for|
|000000e0| 20 61 20 4c 69 67 68 74 | 53 70 65 65 64 20 50 61 | a Light|Speed Pa|
|000000f0| 73 63 61 6c 20 75 6e 69 | 74 20 77 68 69 63 68 20 |scal uni|t which |
|00000100| 68 61 6e 64 6c 65 73 20 | 74 68 65 20 54 61 62 62 |handles |the Tabb|
|00000110| 79 20 6c 61 75 6e 63 68 | 2e 6e 65 78 74 09 09 7d |y launch|.next..}|
|00000120| 0d 7b 20 66 69 6c 65 20 | 61 6e 64 20 72 65 74 75 |.{ file |and retu|
|00000130| 72 6e 73 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |rns the |name of |
|00000140| 74 68 65 20 6e 65 78 74 | 20 61 70 70 6c 69 63 61 |the next| applica|
|00000150| 74 69 6f 6e 20 74 6f 20 | 6c 61 75 6e 63 68 20 69 |tion to |launch i|
|00000160| 6e 20 61 20 76 61 72 69 | 61 62 6c 65 09 7d 0d 7b |n a vari|able.}.{|
|00000170| 20 63 61 6c 6c 65 64 20 | 4e 65 78 74 4c 61 75 6e | called |NextLaun|
|00000180| 63 68 2e 09 09 09 09 09 | 09 09 09 09 09 09 09 7d |ch......|.......}|
|00000190| 0d 0d 7b 20 54 68 69 73 | 20 73 6f 75 72 63 65 20 |..{ This| source |
|000001a0| 63 6f 64 65 20 69 73 20 | 62 65 69 6e 67 20 6d 61 |code is |being ma|
|000001b0| 64 65 20 70 75 62 6c 69 | 63 20 69 6e 20 74 68 65 |de publi|c in the|
|000001c0| 20 68 6f 70 65 73 20 74 | 68 61 74 20 69 74 20 77 | hopes t|hat it w|
|000001d0| 69 6c 6c 20 6c 65 61 64 | 20 74 6f 20 6d 6f 72 65 |ill lead| to more|
|000001e0| 09 7d 0d 7b 20 61 6e 64 | 20 62 65 74 74 65 72 20 |.}.{ and| better |
|000001f0| 54 61 62 62 79 20 61 70 | 70 6c 69 63 61 74 69 6f |Tabby ap|plicatio|
|00000200| 6e 73 2e 20 49 20 61 73 | 6b 20 6f 6e 6c 79 20 74 |ns. I as|k only t|
|00000210| 68 61 74 20 79 6f 75 20 | 63 72 65 64 69 74 20 6d |hat you |credit m|
|00000220| 65 20 77 69 74 68 20 61 | 20 74 68 61 6e 6b 73 09 |e with a| thanks.|
|00000230| 7d 0d 7b 20 69 66 20 79 | 6f 75 20 69 6e 63 6f 72 |}.{ if y|ou incor|
|00000240| 70 6f 72 61 74 65 20 61 | 6e 79 20 6f 72 20 61 6c |porate a|ny or al|
|00000250| 6c 20 6f 66 20 74 68 69 | 73 20 63 6f 64 65 20 69 |l of thi|s code i|
|00000260| 6e 20 61 6e 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |n an app|lication|
|00000270| 2e 09 09 09 09 7d 0d 0d | 7b 20 49 20 68 61 76 65 |.....}..|{ I have|
|00000280| 20 6e 6f 20 64 6f 75 62 | 74 20 74 68 61 74 20 74 | no doub|t that t|
|00000290| 68 69 73 20 63 6f 64 65 | 20 63 6f 75 6c 64 20 62 |his code| could b|
|000002a0| 65 20 6d 61 64 65 20 62 | 65 74 74 65 72 2e 20 49 |e made b|etter. I|
|000002b0| 66 20 79 6f 75 20 69 6d | 70 72 6f 76 65 20 6f 6e |f you im|prove on|
|000002c0| 20 69 74 2c 09 7d 0d 7b | 20 70 6c 65 61 73 65 20 | it,.}.{| please |
|000002d0| 73 68 61 72 65 20 79 6f | 75 72 20 69 64 65 61 73 |share yo|ur ideas|
|000002e0| 2e 09 09 09 09 09 09 09 | 09 09 09 09 7d 0d 0d 7b |........|....}..{|
|000002f0| 20 49 66 20 79 6f 75 27 | 72 65 20 6e 6f 74 20 75 | If you'|re not u|
|00000300| 73 69 6e 67 20 4c 69 67 | 68 74 53 70 65 65 64 20 |sing Lig|htSpeed |
|00000310| 50 61 73 63 61 6c 2c 20 | 79 6f 75 27 72 65 20 6f |Pascal, |you're o|
|00000320| 6e 20 79 6f 75 72 20 6f | 77 6e 2e 20 49 20 64 6f |n your o|wn. I do|
|00000330| 6e 27 74 20 6b 6e 6f 77 | 09 09 7d 0d 7b 20 61 6e |n't know|..}.{ an|
|00000340| 79 20 6f 74 68 65 72 20 | 50 61 73 63 61 6c 20 63 |y other |Pascal c|
|00000350| 6f 6d 70 69 6c 65 72 73 | 2e 20 49 27 6d 20 73 75 |ompilers|. I'm su|
|00000360| 72 65 20 73 6f 6d 65 6f | 6e 65 20 6f 74 68 65 72 |re someo|ne other|
|00000370| 20 74 68 61 6e 20 6d 65 | 20 63 61 6e 20 68 65 6c | than me| can hel|
|00000380| 70 20 79 6f 75 09 09 7d | 0d 7b 20 69 66 20 79 6f |p you..}|.{ if yo|
|00000390| 75 20 6e 65 65 64 20 74 | 6f 20 63 6f 6e 76 65 72 |u need t|o conver|
|000003a0| 74 20 74 68 69 73 20 63 | 6f 64 65 20 66 6f 72 20 |t this c|ode for |
|000003b0| 54 75 72 62 6f 2c 20 54 | 4d 4c 20 6f 72 20 41 70 |Turbo, T|ML or Ap|
|000003c0| 70 6c 65 27 73 20 4d 50 | 57 20 50 61 73 63 61 6c |ple's MP|W Pascal|
|000003d0| 2e 09 09 7d 0d 0d 7b 20 | 54 68 61 6e 6b 73 20 74 |...}..{ |Thanks t|
|000003e0| 6f 20 45 72 69 6b 20 53 | 65 6c 62 65 72 67 2c 20 |o Erik S|elberg, |
|000003f0| 77 68 6f 20 68 61 73 20 | 62 65 65 6e 20 61 20 72 |who has |been a r|
|00000400| 65 61 6c 20 68 65 6c 70 | 2e 09 09 09 09 09 09 7d |eal help|.......}|
|00000410| 0d 0d 7b 20 48 6f 77 20 | 74 6f 20 75 73 65 20 74 |..{ How |to use t|
|00000420| 68 69 73 20 63 6f 64 65 | 3a 09 09 09 09 09 09 09 |his code|:.......|
|00000430| 09 09 09 09 09 7d 0d 0d | 7b 20 20 3c 31 3e 20 43 |.....}..|{  <1> C|
|00000440| 72 65 61 74 65 20 61 20 | 4c 69 67 68 74 53 70 65 |reate a |LightSpe|
|00000450| 65 64 20 50 61 73 63 61 | 6c 20 50 72 6f 6a 65 63 |ed Pasca|l Projec|
|00000460| 74 09 09 09 09 09 09 09 | 09 7d 0d 7b 20 20 3c 32 |t.......|.}.{  <2|
|00000470| 3e 20 41 64 64 20 74 68 | 65 20 47 6c 6f 62 61 6c |> Add th|e Global|
|00000480| 73 2e 70 20 66 69 6c 65 | 20 66 69 72 73 74 2c 20 |s.p file| first, |
|00000490| 74 68 65 6e 20 61 64 64 | 20 74 68 65 20 48 65 6c |then add| the Hel|
|000004a0| 6c 6f 54 61 62 62 79 2e | 70 20 66 69 6c 65 09 09 |loTabby.|p file..|
|000004b0| 09 7d 0d 7b 20 20 3c 33 | 3e 20 43 72 65 61 74 65 |.}.{  <3|> Create|
|000004c0| 20 79 6f 75 72 20 6f 77 | 6e 20 61 64 64 69 74 69 | your ow|n additi|
|000004d0| 6f 6e 61 6c 20 66 69 6c | 65 73 09 09 09 09 09 09 |onal fil|es......|
|000004e0| 09 09 09 7d 0d 0d 7b 20 | 59 6f 75 20 73 68 6f 75 |...}..{ |You shou|
|000004f0| 6c 64 20 69 6e 63 6c 75 | 64 65 20 61 6e 20 53 54 |ld inclu|de an ST|
|00000500| 52 20 20 72 65 73 6f 75 | 72 63 65 20 35 30 30 20 |R  resou|rce 500 |
|00000510| 69 6e 20 74 68 65 20 50 | 72 6f 6a 65 63 74 3a 20 |in the P|roject: |
|00000520| 74 68 69 73 20 68 6f 6c | 64 73 20 74 68 65 20 6e |this hol|ds the n|
|00000530| 61 6d 65 09 7d 0d 7b 20 | 6f 66 20 74 68 65 20 64 |ame.}.{ |of the d|
|00000540| 65 66 61 75 6c 74 20 6c | 61 75 6e 63 68 2e 6e 65 |efault l|aunch.ne|
|00000550| 78 74 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 28 |xt appli|cation (|
|00000560| 75 73 75 61 6c 6c 79 20 | 27 52 65 64 20 52 79 64 |usually |'Red Ryd|
|00000570| 65 72 20 48 6f 73 74 27 | 29 2e 09 09 09 7d 0d 0d |er Host'|)....}..|
|00000580| 7b 20 20 20 59 6f 75 72 | 20 6d 61 69 6e 20 70 72 |{   Your| main pr|
|00000590| 6f 67 72 61 6d 20 55 6e | 69 74 20 73 68 6f 75 6c |ogram Un|it shoul|
|000005a0| 64 20 69 6e 63 6c 75 64 | 65 20 74 68 65 20 66 6f |d includ|e the fo|
|000005b0| 6c 6c 6f 77 69 6e 67 20 | 6c 69 6e 65 73 20 61 74 |llowing |lines at|
|000005c0| 20 69 74 73 20 73 74 61 | 72 74 3a 09 7d 0d 0d 7b | its sta|rt:.}..{|
|000005d0| 20 20 20 20 20 75 73 65 | 73 09 09 09 09 09 09 09 |     use|s.......|
|000005e0| 09 09 09 09 09 09 09 7d | 0d 7b 20 20 20 20 20 20 |.......}|.{      |
|000005f0| 20 47 6c 6f 62 61 6c 73 | 2c 20 48 65 6c 6c 6f 54 | Globals|, HelloT|
|00000600| 61 62 62 79 3b 09 09 09 | 09 09 09 09 09 09 09 09 |abby;...|........|
|00000610| 7d 0d 0d 7b 20 20 20 45 | 6e 64 20 74 68 65 20 6d |}..{   E|nd the m|
|00000620| 61 69 6e 20 70 72 6f 63 | 65 64 75 72 65 20 6f 66 |ain proc|edure of|
|00000630| 20 79 6f 75 72 20 70 72 | 6f 67 72 61 6d 20 61 73 | your pr|ogram as|
|00000640| 20 66 6f 6c 6c 6f 77 73 | 3a 09 09 09 09 09 09 7d | follows|:......}|
|00000650| 0d 0d 7b 20 20 20 20 48 | 65 6c 6c 6f 54 61 62 62 |..{    H|elloTabb|
|00000660| 79 3b 09 09 09 09 09 09 | 09 09 09 09 09 09 09 7d |y;......|.......}|
|00000670| 0d 7b 20 20 20 20 69 66 | 20 4e 65 78 74 4c 61 75 |.{    if| NextLau|
|00000680| 6e 63 68 20 3c 3e 20 27 | 27 20 74 68 65 6e 09 09 |nch <> '|' then..|
|00000690| 09 09 09 09 09 09 09 09 | 09 7d 0d 7b 20 20 20 20 |........|.}.{    |
|000006a0| 20 20 20 4c 61 75 6e 63 | 68 4e 65 78 74 41 70 70 |   Launc|hNextApp|
|000006b0| 6c 09 09 09 09 09 09 09 | 09 09 09 09 09 7d 0d 7b |l.......|.....}.{|
|000006c0| 20 20 20 20 65 6e 64 2e | 09 09 09 09 09 09 09 09 |    end.|........|
|000006d0| 09 09 09 09 09 09 09 7d | 0d 0d 0d 7b 09 09 09 2a |.......}|...{...*|
|000006e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 20 48 69 73 74 6f 72 |********|* Histor|
|000006f0| 79 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 09 09 09 09 |y ******|****....|
|00000700| 09 09 09 09 7d 0d 0d 7b | 20 4d 6f 64 69 66 69 65 |....}..{| Modifie|
|00000710| 64 20 4d 61 72 63 68 20 | 31 31 2c 20 31 39 38 39 |d March |11, 1989|
|00000720| 2c 20 74 6f 20 68 61 6e | 64 6c 65 20 75 70 20 74 |, to han|dle up t|
|00000730| 6f 20 31 30 30 20 65 76 | 65 6e 74 73 20 6f 66 20 |o 100 ev|ents of |
|00000740| 3c 20 33 32 20 63 68 61 | 72 73 20 61 70 69 65 63 |< 32 cha|rs apiec|
|00000750| 65 2e 09 7d 0d 7b 20 4d | 6f 64 69 66 69 65 64 20 |e..}.{ M|odified |
|00000760| 41 70 72 69 6c 20 31 37 | 20 61 6e 64 20 4d 61 79 |April 17| and May|
|00000770| 20 36 2c 20 31 39 38 39 | 2c 20 74 6f 20 68 61 6e | 6, 1989|, to han|
|00000780| 64 6c 65 20 4d 75 6c 74 | 69 46 69 6e 64 65 72 2e |dle Mult|iFinder.|
|00000790| 09 09 09 09 09 7d 0d 7b | 20 4d 6f 64 69 66 69 65 |.....}.{| Modifie|
|000007a0| 64 20 4a 75 6e 65 20 31 | 31 2c 20 31 39 38 39 2c |d June 1|1, 1989,|
|000007b0| 20 74 6f 20 75 73 65 20 | 54 6f 6f 6c 62 6f 78 20 | to use |Toolbox |
|000007c0| 66 69 6c 65 20 63 61 6c | 6c 73 2e 09 09 09 09 09 |file cal|ls......|
|000007d0| 09 7d 0d 7b 20 4d 6f 64 | 69 66 69 65 64 20 4a 75 |.}.{ Mod|ified Ju|
|000007e0| 6e 65 20 31 35 2c 20 31 | 39 38 39 2c 20 74 6f 20 |ne 15, 1|989, to |
|000007f0| 75 73 65 20 54 61 62 62 | 79 20 53 65 74 75 70 20 |use Tabb|y Setup |
|00000800| 6e 61 6d 65 20 66 6f 72 | 20 27 42 42 53 27 20 73 |name for| 'BBS' s|
|00000810| 74 72 69 6e 67 2e 09 09 | 09 7d 0d 7b 20 4d 6f 64 |tring...|.}.{ Mod|
|00000820| 69 66 69 65 64 20 4a 75 | 6c 79 20 32 32 2c 20 31 |ified Ju|ly 22, 1|
|00000830| 39 38 39 2c 20 66 6f 72 | 20 61 64 64 69 74 69 6f |989, for| additio|
|00000840| 6e 61 6c 20 65 72 72 6f | 72 20 63 68 65 63 6b 69 |nal erro|r checki|
|00000850| 6e 67 2e 09 09 09 09 09 | 7d 0d 0d 7b 09 4e 65 78 |ng......|}..{.Nex|
|00000860| 74 20 66 6f 75 72 20 6c | 69 6e 65 73 20 68 61 6e |t four l|ines han|
|00000870| 64 6c 65 20 44 65 62 75 | 67 2c 20 4e 61 6d 65 73 |dle Debu|g, Names|
|00000880| 2c 20 4f 76 65 72 66 6c | 6f 77 20 61 6e 64 20 52 |, Overfl|ow and R|
|00000890| 61 6e 67 65 09 09 09 09 | 7d 0d 7b 09 63 68 65 63 |ange....|}.{.chec|
|000008a0| 6b 69 6e 67 20 6f 70 74 | 69 6f 6e 73 20 69 6e 20 |king opt|ions in |
|000008b0| 63 6f 6d 70 69 6c 65 72 | 2e 09 09 09 09 09 09 09 |compiler|........|
|000008c0| 09 09 09 7d 0d 0d 7b 24 | 44 2b 7d 0d 7b 24 4e 2b |...}..{$|D+}.{$N+|
|000008d0| 7d 0d 7b 24 56 2b 7d 0d | 7b 24 52 2b 7d 0d 0d 69 |}.{$V+}.|{$R+}..i|
|000008e0| 6e 74 65 72 66 61 63 65 | 0d 0d 75 73 65 73 0d 09 |nterface|..uses..|
|000008f0| 47 6c 6f 62 61 6c 73 3b | 0d 0d 74 79 70 65 0d 09 |Globals;|..type..|
|00000900| 70 4c 61 75 6e 63 68 53 | 74 72 75 63 74 20 3d 20 |pLaunchS|truct = |
|00000910| 5e 4c 61 75 6e 63 68 53 | 74 72 75 63 74 3b 0d 09 |^LaunchS|truct;..|
|00000920| 4c 61 75 6e 63 68 53 74 | 72 75 63 74 20 3d 20 72 |LaunchSt|ruct = r|
|00000930| 65 63 6f 72 64 0d 09 09 | 09 70 66 4e 61 6d 65 3a |ecord...|.pfName:|
|00000940| 20 53 74 72 69 6e 67 50 | 74 72 3b 0d 09 09 09 70 | StringP|tr;....p|
|00000950| 61 72 61 6d 3a 20 49 4e | 54 45 47 45 52 3b 0d 09 |aram: IN|TEGER;..|
|00000960| 09 09 4c 43 3a 20 70 61 | 63 6b 65 64 20 61 72 72 |..LC: pa|cked arr|
|00000970| 61 79 5b 30 2e 2e 31 5d | 20 6f 66 20 43 48 41 52 |ay[0..1]| of CHAR|
|00000980| 3b 09 7b 09 65 78 74 65 | 6e 64 65 64 20 70 61 72 |;.{.exte|nded par|
|00000990| 61 6d 65 74 65 72 73 3a | 09 09 09 09 09 09 09 09 |ameters:|........|
|000009a0| 7d 0d 09 09 09 65 78 74 | 42 6c 6f 63 6b 4c 65 6e |}....ext|BlockLen|
|000009b0| 3a 20 4c 4f 4e 47 49 4e | 54 3b 20 09 09 09 09 09 |: LONGIN|T; .....|
|000009c0| 7b 09 6e 75 6d 62 65 72 | 20 6f 66 20 62 79 74 65 |{.number| of byte|
|000009d0| 73 20 69 6e 20 65 78 74 | 65 6e 73 69 6f 6e 20 3d |s in ext|ension =|
|000009e0| 20 36 09 09 09 09 09 7d | 0d 09 09 09 66 46 6c 61 | 6.....}|....fFla|
|000009f0| 67 73 3a 20 49 4e 54 45 | 47 45 52 3b 09 09 09 09 |gs: INTE|GER;....|
|00000a00| 09 09 09 7b 09 46 69 6e | 64 65 72 20 66 69 6c 65 |...{.Fin|der file|
|00000a10| 20 69 6e 66 6f 20 66 6c | 61 67 73 09 09 09 09 09 | info fl|ags.....|
|00000a20| 09 09 09 7d 0d 09 09 09 | 6c 61 75 6e 63 68 46 6c |...}....|launchFl|
|00000a30| 61 67 73 3a 20 4c 4f 4e | 47 49 4e 54 3b 20 09 09 |ags: LON|GINT; ..|
|00000a40| 09 09 09 7b 09 62 69 74 | 20 33 31 2c 33 30 3d 31 |...{.bit| 31,30=1|
|00000a50| 20 66 6f 72 20 73 75 62 | 6c 61 75 6e 63 68 2c 20 | for sub|launch, |
|00000a60| 6f 74 68 65 72 73 20 72 | 65 73 65 72 76 65 64 09 |others r|eserved.|
|00000a70| 7d 0d 09 09 65 6e 64 3b | 20 09 09 09 09 09 09 09 |}...end;| .......|
|00000a80| 09 09 09 09 7b 09 4c 61 | 75 6e 63 68 53 74 72 75 |....{.La|unchStru|
|00000a90| 63 74 09 09 09 09 09 09 | 09 09 09 09 09 7d 0d 0d |ct......|.....}..|
|00000aa0| 76 61 72 0d 09 4e 65 78 | 74 4c 61 75 6e 63 68 3a |var..Nex|tLaunch:|
|00000ab0| 20 53 54 52 32 35 35 3b | 0d 09 4d 75 6c 74 69 46 | STR255;|..MultiF|
|00000ac0| 69 6e 64 65 72 3a 20 62 | 6f 6f 6c 65 61 6e 3b 0d |inder: b|oolean;.|
|00000ad0| 0d 70 72 6f 63 65 64 75 | 72 65 20 4c 61 75 6e 63 |.procedu|re Launc|
|00000ae0| 68 4e 65 78 74 41 70 70 | 6c 3b 0d 0d 70 72 6f 63 |hNextApp|l;..proc|
|00000af0| 65 64 75 72 65 20 48 65 | 6c 6c 6f 54 61 62 62 79 |edure He|lloTabby|
|00000b00| 3b 0d 0d 0d 69 6d 70 6c | 65 6d 65 6e 74 61 74 69 |;...impl|ementati|
|00000b10| 6f 6e 0d 0d 7b 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |on..{ --|--------|
|00000b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 7d 0d 70 |--------|---- }.p|
|00000b50| 72 6f 63 65 64 75 72 65 | 20 52 65 61 64 43 6f 6e |rocedure| ReadCon|
|00000b60| 66 69 67 3b 0d 0d 09 76 | 61 72 0d 09 09 43 6f 6e |fig;...v|ar...Con|
|00000b70| 66 69 67 52 65 66 4e 75 | 6d 3a 20 69 6e 74 65 67 |figRefNu|m: integ|
|00000b80| 65 72 3b 0d 09 09 6c 6f | 67 69 63 61 6c 45 4f 46 |er;...lo|gicalEOF|
|00000b90| 2c 20 43 68 61 72 73 54 | 6f 53 65 6e 64 3a 20 6c |, CharsT|oSend: l|
|00000ba0| 6f 6e 67 69 6e 74 3b 0d | 09 09 4d 46 42 79 74 65 |ongint;.|..MFByte|
|00000bb0| 3a 20 53 69 67 6e 65 64 | 42 79 74 65 3b 0d 0d 09 |: Signed|Byte;...|
|00000bc0| 62 65 67 69 6e 0d 09 09 | 4d 75 6c 74 69 46 69 6e |begin...|MultiFin|
|00000bd0| 64 65 72 20 3a 3d 20 66 | 61 6c 73 65 3b 0d 09 09 |der := f|alse;...|
|00000be0| 43 68 61 72 73 54 6f 53 | 65 6e 64 20 3a 3d 20 31 |CharsToS|end := 1|
|00000bf0| 3b 0d 09 09 46 69 6c 65 | 45 72 72 6f 72 20 3a 3d |;...File|Error :=|
|00000c00| 20 46 53 4f 70 65 6e 28 | 27 43 6f 6e 66 69 67 27 | FSOpen(|'Config'|
|00000c10| 2c 20 76 52 65 66 4e 75 | 6d 2c 20 43 6f 6e 66 69 |, vRefNu|m, Confi|
|00000c20| 67 52 65 66 4e 75 6d 29 | 3b 0d 09 09 69 66 20 46 |gRefNum)|;...if F|
|00000c30| 69 6c 65 45 72 72 6f 72 | 20 3d 20 6e 6f 45 72 72 |ileError| = noErr|
|00000c40| 20 74 68 65 6e 0d 09 09 | 09 62 65 67 69 6e 0d 09 | then...|.begin..|
|00000c50| 09 09 09 46 69 6c 65 45 | 72 72 6f 72 20 3a 3d 20 |...FileE|rror := |
|00000c60| 47 65 74 45 4f 46 28 43 | 6f 6e 66 69 67 52 65 66 |GetEOF(C|onfigRef|
|00000c70| 4e 75 6d 2c 20 6c 6f 67 | 69 63 61 6c 45 4f 46 29 |Num, log|icalEOF)|
|00000c80| 3b 0d 09 09 09 09 69 66 | 20 28 46 69 6c 65 45 72 |;.....if| (FileEr|
|00000c90| 72 6f 72 20 3d 20 6e 6f | 45 72 72 29 20 26 20 28 |ror = no|Err) & (|
|00000ca0| 6c 6f 67 69 63 61 6c 45 | 4f 46 20 3d 20 33 34 39 |logicalE|OF = 349|
|00000cb0| 29 20 74 68 65 6e 0d 09 | 09 09 09 09 62 65 67 69 |) then..|....begi|
|00000cc0| 6e 0d 09 09 09 09 09 09 | 46 69 6c 65 45 72 72 6f |n.......|FileErro|
|00000cd0| 72 20 3a 3d 20 53 65 74 | 46 50 6f 73 28 43 6f 6e |r := Set|FPos(Con|
|00000ce0| 66 69 67 52 65 66 4e 75 | 6d 2c 20 66 73 46 72 6f |figRefNu|m, fsFro|
|00000cf0| 6d 53 74 61 72 74 2c 20 | 33 31 36 29 3b 0d 09 09 |mStart, |316);...|
|00000d00| 09 09 09 09 46 69 6c 65 | 45 72 72 6f 72 20 3a 3d |....File|Error :=|
|00000d10| 20 46 53 52 65 61 64 28 | 43 6f 6e 66 69 67 52 65 | FSRead(|ConfigRe|
|00000d20| 66 4e 75 6d 2c 20 43 68 | 61 72 73 54 6f 53 65 6e |fNum, Ch|arsToSen|
|00000d30| 64 2c 20 40 4d 46 42 79 | 74 65 29 3b 0d 09 09 09 |d, @MFBy|te);....|
|00000d40| 09 09 09 69 66 20 4d 46 | 42 79 74 65 20 3c 3e 20 |...if MF|Byte <> |
|00000d50| 30 20 74 68 65 6e 0d 09 | 09 09 09 09 09 09 4d 75 |0 then..|......Mu|
|00000d60| 6c 74 69 46 69 6e 64 65 | 72 20 3a 3d 20 74 72 75 |ltiFinde|r := tru|
|00000d70| 65 3b 0d 09 09 09 09 09 | 65 6e 64 09 09 7b 09 69 |e;......|end..{.i|
|00000d80| 66 20 28 46 69 6c 65 45 | 72 72 6f 72 20 3d 20 6e |f (FileE|rror = n|
|00000d90| 6f 45 72 72 29 20 26 20 | 28 6c 6f 67 69 63 61 6c |oErr) & |(logical|
|00000da0| 45 4f 46 20 3d 20 33 34 | 39 29 09 7d 0d 09 09 09 |EOF = 34|9).}....|
|00000db0| 65 6e 64 3b 09 09 7b 09 | 69 66 20 46 69 6c 65 45 |end;..{.|if FileE|
|00000dc0| 72 72 6f 72 20 3d 20 6e | 6f 45 72 72 09 7d 0d 09 |rror = n|oErr.}..|
|00000dd0| 09 46 69 6c 65 45 72 72 | 6f 72 20 3a 3d 20 46 53 |.FileErr|or := FS|
|00000de0| 43 6c 6f 73 65 28 43 6f | 6e 66 69 67 52 65 66 4e |Close(Co|nfigRefN|
|00000df0| 75 6d 29 3b 0d 09 65 6e | 64 3b 0d 0d 7b 20 2d 2d |um);..en|d;..{ --|
|00000e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e30| 2d 2d 2d 2d 20 7d 0d 0d | 66 75 6e 63 74 69 6f 6e |---- }..|function|
|00000e40| 20 4c 61 75 6e 63 68 69 | 74 20 28 70 4c 6e 63 68 | Launchi|t (pLnch|
|00000e50| 3a 20 70 4c 61 75 6e 63 | 68 53 74 72 75 63 74 29 |: pLaunc|hStruct)|
|00000e60| 3a 20 4f 53 45 72 72 3b | 0d 0d 69 6e 6c 69 6e 65 |: OSErr;|..inline|
|00000e70| 0d 09 24 32 30 35 46 2c | 20 24 41 39 46 32 2c 20 |..$205F,| $A9F2, |
|00000e80| 24 33 45 38 30 3b 0d 0d | 7b 20 2d 2d 2d 2d 2d 2d |$3E80;..|{ ------|
|00000e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ec0| 20 7d 0d 0d 70 72 6f 63 | 65 64 75 72 65 20 4c 61 | }..proc|edure La|
|00000ed0| 75 6e 63 68 4e 65 78 74 | 41 70 70 6c 3b 0d 0d 09 |unchNext|Appl;...|
|00000ee0| 76 61 72 0d 09 09 70 4d | 79 4c 61 75 6e 63 68 3a |var...pM|yLaunch:|
|00000ef0| 20 70 4c 61 75 6e 63 68 | 53 74 72 75 63 74 3b 0d | pLaunch|Struct;.|
|00000f00| 09 09 6d 79 4c 61 75 6e | 63 68 3a 20 4c 61 75 6e |..myLaun|ch: Laun|
|00000f10| 63 68 53 74 72 75 63 74 | 3b 0d 09 09 4d 79 50 42 |chStruct|;...MyPB|
|00000f20| 3a 20 43 49 6e 66 6f 50 | 42 52 65 63 3b 0d 0d 09 |: CInfoP|BRec;...|
|00000f30| 62 65 67 69 6e 0d 0d 09 | 09 77 69 74 68 20 4d 79 |begin...|.with My|
|00000f40| 50 42 20 64 6f 0d 09 09 | 09 62 65 67 69 6e 0d 09 |PB do...|.begin..|
|00000f50| 09 09 09 69 6f 4e 61 6d | 65 50 74 72 20 3a 3d 20 |...ioNam|ePtr := |
|00000f60| 40 4e 65 78 74 4c 61 75 | 6e 63 68 3b 0d 09 09 09 |@NextLau|nch;....|
|00000f70| 09 69 6f 56 52 65 66 4e | 75 6d 20 3a 3d 20 76 52 |.ioVRefN|um := vR|
|00000f80| 65 66 4e 75 6d 3b 0d 09 | 09 09 09 69 6f 46 44 69 |efNum;..|...ioFDi|
|00000f90| 72 49 6e 64 65 78 20 3a | 3d 20 30 3b 0d 09 09 09 |rIndex :|= 0;....|
|00000fa0| 09 69 6f 44 69 72 49 44 | 20 3a 3d 20 30 3b 0d 09 |.ioDirID| := 0;..|
|00000fb0| 09 09 65 6e 64 3b 09 7b | 09 77 69 74 68 09 7d 0d |..end;.{|.with.}.|
|00000fc0| 09 09 46 69 6c 65 45 72 | 72 6f 72 20 3a 3d 20 50 |..FileEr|ror := P|
|00000fd0| 42 47 65 74 43 61 74 49 | 6e 66 6f 28 40 4d 79 50 |BGetCatI|nfo(@MyP|
|00000fe0| 42 2c 20 66 61 6c 73 65 | 29 3b 0d 0d 09 09 70 4d |B, false|);....pM|
|00000ff0| 79 4c 61 75 6e 63 68 20 | 3a 3d 20 40 6d 79 4c 61 |yLaunch |:= @myLa|
|00001000| 75 6e 63 68 3b 0d 09 09 | 77 69 74 68 20 70 4d 79 |unch;...|with pMy|
|00001010| 4c 61 75 6e 63 68 5e 20 | 64 6f 0d 09 09 09 62 65 |Launch^ |do....be|
|00001020| 67 69 6e 0d 09 09 09 09 | 70 66 4e 61 6d 65 20 3a |gin.....|pfName :|
|00001030| 3d 20 40 4e 65 78 74 4c | 61 75 6e 63 68 3b 0d 09 |= @NextL|aunch;..|
|00001040| 09 09 09 70 61 72 61 6d | 20 3a 3d 20 30 3b 0d 09 |...param| := 0;..|
|00001050| 09 09 09 4c 43 5b 30 5d | 20 3a 3d 20 27 4c 27 3b |...LC[0]| := 'L';|
|00001060| 0d 09 09 09 09 4c 43 5b | 31 5d 20 3a 3d 20 27 43 |.....LC[|1] := 'C|
|00001070| 27 3b 0d 09 09 09 09 65 | 78 74 42 6c 6f 63 6b 4c |';.....e|xtBlockL|
|00001080| 65 6e 20 3a 3d 20 36 3b | 0d 09 09 09 09 66 46 6c |en := 6;|.....fFl|
|00001090| 61 67 73 20 3a 3d 20 6d | 79 50 42 2e 69 6f 46 6c |ags := m|yPB.ioFl|
|000010a0| 46 6e 64 72 49 6e 66 6f | 2e 66 64 46 6c 61 67 73 |FndrInfo|.fdFlags|
|000010b0| 3b 0d 09 09 09 09 69 66 | 20 4d 75 6c 74 69 46 69 |;.....if| MultiFi|
|000010c0| 6e 64 65 72 20 74 68 65 | 6e 0d 09 09 09 09 09 4c |nder the|n......L|
|000010d0| 61 75 6e 63 68 46 6c 61 | 67 73 20 3a 3d 20 24 43 |aunchFla|gs := $C|
|000010e0| 30 30 30 30 30 30 30 09 | 09 7b 09 73 65 74 20 42 |0000000.|.{.set B|
|000010f0| 4f 54 48 20 68 69 67 68 | 20 62 69 74 73 20 66 6f |OTH high| bits fo|
|00001100| 72 20 61 20 73 75 62 6c | 61 75 6e 63 68 09 7d 0d |r a subl|aunch.}.|
|00001110| 09 09 09 09 65 6c 73 65 | 0d 09 09 09 09 09 4c 61 |....else|......La|
|00001120| 75 6e 63 68 46 6c 61 67 | 73 20 3a 3d 20 24 30 30 |unchFlag|s := $00|
|00001130| 30 30 30 30 30 30 3b 09 | 09 7b 09 6a 75 73 74 20 |000000;.|.{.just |
|00001140| 6c 61 75 6e 63 68 2c 20 | 74 68 65 6e 20 71 75 69 |launch, |then qui|
|00001150| 74 09 7d 0d 09 09 09 65 | 6e 64 3b 09 09 7b 09 77 |t.}....e|nd;..{.w|
|00001160| 69 74 68 20 70 4d 79 4c | 61 75 6e 63 68 5e 09 7d |ith pMyL|aunch^.}|
|00001170| 0d 09 09 46 69 6c 65 45 | 72 72 6f 72 20 3a 3d 20 |...FileE|rror := |
|00001180| 4c 61 75 6e 63 68 69 74 | 28 70 4d 79 4c 61 75 6e |Launchit|(pMyLaun|
|00001190| 63 68 29 3b 0d 09 65 6e | 64 3b 0d 0d 7b 20 2d 2d |ch);..en|d;..{ --|
|000011a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011d0| 2d 2d 2d 2d 20 7d 0d 0d | 70 72 6f 63 65 64 75 72 |---- }..|procedur|
|000011e0| 65 20 48 65 6c 6c 6f 54 | 61 62 62 79 3b 0d 0d 7b |e HelloT|abby;..{|
|000011f0| 20 54 68 69 73 20 70 72 | 6f 63 65 64 75 72 65 20 | This pr|ocedure |
|00001200| 6c 6f 6f 6b 73 20 66 6f | 72 20 61 20 54 61 62 62 |looks fo|r a Tabb|
|00001210| 79 20 6c 61 75 6e 63 68 | 2e 6e 65 78 74 20 66 69 |y launch|.next fi|
|00001220| 6c 65 2e 20 49 66 20 69 | 74 27 73 20 66 6f 75 6e |le. If i|t's foun|
|00001230| 64 2c 20 69 74 20 09 09 | 7d 0d 7b 20 65 78 74 72 |d, it ..|}.{ extr|
|00001240| 61 63 74 73 20 74 68 65 | 20 65 76 65 6e 74 73 2c |acts the| events,|
|00001250| 20 77 68 69 63 68 20 61 | 72 65 20 63 6f 6d 6d 61 | which a|re comma|
|00001260| 20 64 65 6c 69 6d 69 74 | 65 64 2c 20 73 61 76 65 | delimit|ed, save|
|00001270| 73 20 74 68 65 20 66 69 | 72 73 74 20 6f 6e 65 09 |s the fi|rst one.|
|00001280| 09 09 7d 0d 7b 20 66 6f | 72 20 74 68 65 20 6e 65 |..}.{ fo|r the ne|
|00001290| 78 74 20 6c 61 75 6e 63 | 68 20 61 6e 64 20 72 65 |xt launc|h and re|
|000012a0| 77 72 69 74 65 73 20 74 | 68 65 20 66 69 6c 65 20 |writes t|he file |
|000012b0| 66 72 6f 6d 20 65 76 65 | 6e 74 20 23 32 20 74 6f |from eve|nt #2 to|
|000012c0| 20 74 68 65 20 6c 61 73 | 74 09 09 09 7d 0d 7b 20 | the las|t...}.{ |
|000012d0| 65 76 65 6e 74 2e 09 09 | 09 09 09 09 09 09 09 09 |event...|........|
|000012e0| 09 09 09 09 09 7d 0d 0d | 7b 20 49 66 20 69 74 20 |.....}..|{ If it |
|000012f0| 66 69 6e 64 73 20 6f 6e | 6c 79 20 6f 6e 65 20 65 |finds on|ly one e|
|00001300| 76 65 6e 74 2c 20 69 74 | 20 6b 69 6c 6c 73 20 74 |vent, it| kills t|
|00001310| 68 65 20 6c 61 75 6e 63 | 68 2e 6e 65 78 74 20 66 |he launc|h.next f|
|00001320| 69 6c 65 2e 20 20 20 20 | 20 20 20 09 09 09 7d 0d |ile.    |   ...}.|
|00001330| 0d 7b 20 49 66 20 74 68 | 65 72 65 20 61 72 65 20 |.{ If th|ere are |
|00001340| 6e 6f 20 65 76 65 6e 74 | 73 2c 20 69 74 20 72 65 |no event|s, it re|
|00001350| 74 75 72 6e 73 20 74 68 | 65 20 61 70 70 6c 69 63 |turns th|e applic|
|00001360| 61 74 69 6f 6e 20 6e 61 | 6d 65 20 63 6f 6e 74 61 |ation na|me conta|
|00001370| 69 6e 65 64 20 69 6e 09 | 09 7d 0d 7b 20 53 54 52 |ined in.|.}.{ STR|
|00001380| 20 20 35 30 30 20 61 73 | 20 53 54 52 32 35 35 20 |  500 as| STR255 |
|00001390| 4e 65 78 74 4c 61 75 6e | 63 68 2c 20 6f 74 68 65 |NextLaun|ch, othe|
|000013a0| 72 77 69 73 65 20 69 74 | 20 75 73 65 73 20 4e 65 |rwise it| uses Ne|
|000013b0| 78 74 4c 61 75 6e 63 68 | 20 74 6f 20 68 6f 6c 64 |xtLaunch| to hold|
|000013c0| 20 20 09 09 7d 0d 7b 20 | 74 68 65 20 66 69 72 73 |  ..}.{ |the firs|
|000013d0| 74 20 65 6e 74 72 79 20 | 69 6e 20 74 68 65 20 6c |t entry |in the l|
|000013e0| 61 75 6e 63 68 2e 6e 65 | 78 74 20 73 63 72 69 70 |aunch.ne|xt scrip|
|000013f0| 74 2e 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t.      |        |
|00001400| 20 20 20 20 20 20 20 09 | 09 09 7d 0d 0d 7b 20 42 |       .|..}..{ B|
|00001410| 65 66 6f 72 65 20 72 65 | 74 75 72 6e 69 6e 67 2c |efore re|turning,|
|00001420| 20 69 74 20 61 6c 73 6f | 20 63 68 65 63 6b 73 20 | it also| checks |
|00001430| 74 68 61 74 20 74 68 65 | 20 4e 65 78 74 4c 61 75 |that the| NextLau|
|00001440| 6e 63 68 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 |nch appl|ication |
|00001450| 65 78 69 73 74 73 09 09 | 7d 0d 7b 20 62 79 20 74 |exists..|}.{ by t|
|00001460| 72 79 69 6e 67 20 74 6f | 09 6f 70 65 6e 20 69 74 |rying to|.open it|
|00001470| 2e 20 49 66 20 74 68 65 | 20 6f 70 65 6e 20 61 74 |. If the| open at|
|00001480| 74 65 6d 70 74 20 66 61 | 69 6c 73 2c 20 69 74 20 |tempt fa|ils, it |
|00001490| 72 65 74 75 72 6e 73 20 | 4e 65 78 74 4c 61 75 6e |returns |NextLaun|
|000014a0| 63 68 09 09 7d 0d 7b 20 | 61 73 20 61 6e 20 65 6d |ch..}.{ |as an em|
|000014b0| 70 74 79 20 73 74 72 69 | 6e 67 2e 09 09 09 09 09 |pty stri|ng......|
|000014c0| 09 09 09 09 09 09 09 7d | 0d 0d 09 74 79 70 65 0d |.......}|...type.|
|000014d0| 09 09 48 75 6e 64 72 65 | 64 45 76 65 6e 74 73 20 |..Hundre|dEvents |
|000014e0| 3d 20 61 72 72 61 79 5b | 31 2e 2e 31 30 30 5d 20 |= array[|1..100] |
|000014f0| 6f 66 20 73 74 72 69 6e | 67 5b 33 32 5d 3b 0d 09 |of strin|g[32];..|
|00001500| 09 4d 61 6e 79 43 68 61 | 72 73 20 3d 20 70 61 63 |.ManyCha|rs = pac|
|00001510| 6b 65 64 20 61 72 72 61 | 79 5b 31 2e 2e 33 33 30 |ked arra|y[1..330|
|00001520| 30 5d 20 6f 66 20 63 68 | 61 72 3b 09 7b 09 43 61 |0] of ch|ar;.{.Ca|
|00001530| 6e 20 68 6f 6c 64 20 31 | 30 30 20 33 32 2d 6c 65 |n hold 1|00 32-le|
|00001540| 6e 67 74 68 20 65 76 65 | 6e 74 73 2c 20 63 6f 6d |ngth eve|nts, com|
|00001550| 6d 61 73 20 61 6e 64 20 | 6f 6e 65 20 3c 43 52 3e |mas and |one <CR>|
|00001560| 09 7d 0d 0d 09 76 61 72 | 0d 09 09 45 76 65 6e 74 |.}...var|...Event|
|00001570| 43 6f 75 6e 74 65 72 2c | 20 45 76 65 6e 74 4c 69 |Counter,| EventLi|
|00001580| 6d 69 74 2c 20 4c 4e 52 | 65 66 4e 75 6d 2c 20 4c |mit, LNR|efNum, L|
|00001590| 61 75 6e 63 68 43 6f 75 | 6e 74 3a 20 69 6e 74 65 |aunchCou|nt: inte|
|000015a0| 67 65 72 3b 0d 09 09 4c | 4e 43 68 61 72 3a 20 63 |ger;...L|NChar: c|
|000015b0| 68 61 72 3b 0d 09 09 42 | 42 53 42 79 74 65 3a 20 |har;...B|BSByte: |
|000015c0| 53 69 67 6e 65 64 42 79 | 74 65 3b 0d 09 09 54 68 |SignedBy|te;...Th|
|000015d0| 65 43 68 61 72 73 3a 20 | 4d 61 6e 79 43 68 61 72 |eChars: |ManyChar|
|000015e0| 73 3b 0d 09 09 45 76 65 | 6e 74 3a 20 48 75 6e 64 |s;...Eve|nt: Hund|
|000015f0| 72 65 64 45 76 65 6e 74 | 73 3b 0d 09 09 45 76 65 |redEvent|s;...Eve|
|00001600| 6e 74 73 2c 20 54 68 69 | 73 45 76 65 6e 74 2c 20 |nts, Thi|sEvent, |
|00001610| 56 6f 6c 4e 61 6d 65 2c | 20 54 65 6d 70 53 74 72 |VolName,| TempStr|
|00001620| 69 6e 67 2c 20 42 42 53 | 4e 61 6d 65 3a 20 53 54 |ing, BBS|Name: ST|
|00001630| 52 32 35 35 3b 0d 09 09 | 6c 6f 67 69 63 61 6c 45 |R255;...|logicalE|
|00001640| 4f 46 2c 20 51 75 61 6e | 74 69 74 79 2c 20 43 68 |OF, Quan|tity, Ch|
|00001650| 61 72 49 6e 64 65 78 3a | 20 6c 6f 6e 67 69 6e 74 |arIndex:| longint|
|00001660| 3b 0d 09 09 43 68 61 72 | 43 6f 75 6e 74 2c 20 53 |;...Char|Count, S|
|00001670| 65 74 55 70 52 65 66 2c | 20 53 65 74 55 70 43 6f |etUpRef,| SetUpCo|
|00001680| 75 6e 74 3a 20 69 6e 74 | 65 67 65 72 3b 0d 09 09 |unt: int|eger;...|
|00001690| 66 6e 64 72 49 6e 66 6f | 3a 20 46 49 6e 66 6f 3b |fndrInfo|: FInfo;|
|000016a0| 0d 0d 09 62 65 67 69 6e | 0d 09 09 46 69 6c 65 45 |...begin|...FileE|
|000016b0| 72 72 6f 72 20 3a 3d 20 | 47 65 74 56 6f 6c 28 40 |rror := |GetVol(@|
|000016c0| 56 6f 6c 4e 61 6d 65 2c | 20 76 52 65 66 4e 75 6d |VolName,| vRefNum|
|000016d0| 29 3b 09 09 7b 20 47 65 | 74 20 76 6f 6c 75 6d 65 |);..{ Ge|t volume|
|000016e0| 20 72 65 66 20 23 20 66 | 6f 72 20 64 65 66 61 75 | ref # f|or defau|
|000016f0| 6c 74 20 76 6f 6c 75 6d | 65 20 7d 0d 09 09 45 76 |lt volum|e }...Ev|
|00001700| 65 6e 74 73 20 3a 3d 20 | 27 27 3b 0d 09 09 66 6f |ents := |'';...fo|
|00001710| 72 20 45 76 65 6e 74 43 | 6f 75 6e 74 65 72 20 3a |r EventC|ounter :|
|00001720| 3d 20 31 20 74 6f 20 31 | 30 30 20 64 6f 0d 09 09 |= 1 to 1|00 do...|
|00001730| 09 45 76 65 6e 74 5b 45 | 76 65 6e 74 43 6f 75 6e |.Event[E|ventCoun|
|00001740| 74 65 72 5d 20 3a 3d 20 | 27 27 3b 0d 09 09 54 68 |ter] := |'';...Th|
|00001750| 69 73 45 76 65 6e 74 20 | 3a 3d 20 27 27 3b 0d 09 |isEvent |:= '';..|
|00001760| 09 4c 4e 43 68 61 72 20 | 3a 3d 20 63 68 72 28 32 |.LNChar |:= chr(2|
|00001770| 35 35 29 3b 09 09 09 09 | 09 7b 09 44 75 6d 6d 79 |55);....|.{.Dummy|
|00001780| 20 76 61 6c 75 65 20 73 | 6f 20 77 65 20 63 61 6e | value s|o we can|
|00001790| 20 73 70 6f 74 20 74 68 | 69 73 20 66 69 72 73 74 | spot th|is first|
|000017a0| 20 74 69 6d 65 20 74 68 | 72 6f 75 67 68 09 7d 0d | time th|rough.}.|
|000017b0| 09 09 4e 65 78 74 4c 61 | 75 6e 63 68 20 3a 3d 20 |..NextLa|unch := |
|000017c0| 47 65 74 53 74 72 69 6e | 67 28 35 30 30 29 5e 5e |GetStrin|g(500)^^|
|000017d0| 3b 09 09 7b 09 47 65 74 | 20 6e 65 78 74 20 6c 61 |;..{.Get| next la|
|000017e0| 75 6e 63 68 20 73 74 72 | 69 6e 67 20 66 72 6f 6d |unch str|ing from|
|000017f0| 20 72 65 73 6f 75 72 63 | 65 09 7d 0d 09 09 52 65 | resourc|e.}...Re|
|00001800| 61 64 43 6f 6e 66 69 67 | 3b 09 09 09 09 09 09 7b |adConfig|;......{|
|00001810| 09 53 65 65 20 69 66 20 | 77 65 27 72 65 20 72 75 |.See if |we're ru|
|00001820| 6e 6e 69 6e 67 20 4d 75 | 6c 74 69 46 69 6e 64 65 |nning Mu|ltiFinde|
|00001830| 72 09 7d 0d 09 09 45 76 | 65 6e 74 43 6f 75 6e 74 |r.}...Ev|entCount|
|00001840| 65 72 20 3a 3d 20 31 3b | 0d 09 09 46 69 6c 65 45 |er := 1;|...FileE|
|00001850| 72 72 6f 72 20 3a 3d 20 | 46 53 4f 70 65 6e 28 27 |rror := |FSOpen('|
|00001860| 6c 61 75 6e 63 68 2e 6e | 65 78 74 27 2c 20 76 52 |launch.n|ext', vR|
|00001870| 65 66 4e 75 6d 2c 20 4c | 4e 52 65 66 4e 75 6d 29 |efNum, L|NRefNum)|
|00001880| 3b 0d 09 09 46 69 6c 65 | 45 72 72 6f 72 20 3a 3d |;...File|Error :=|
|00001890| 20 47 65 74 45 4f 46 28 | 4c 4e 52 65 66 4e 75 6d | GetEOF(|LNRefNum|
|000018a0| 2c 20 6c 6f 67 69 63 61 | 6c 45 4f 46 29 3b 0d 09 |, logica|lEOF);..|
|000018b0| 09 69 66 20 28 6c 6f 67 | 69 63 61 6c 45 4f 46 20 |.if (log|icalEOF |
|000018c0| 3e 20 30 29 20 61 6e 64 | 20 28 46 69 6c 65 45 72 |> 0) and| (FileEr|
|000018d0| 72 6f 72 20 3d 20 4e 6f | 45 72 72 29 20 74 68 65 |ror = No|Err) the|
|000018e0| 6e 0d 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 46 |n....beg|in.....F|
|000018f0| 69 6c 65 45 72 72 6f 72 | 20 3a 3d 20 53 65 74 46 |ileError| := SetF|
|00001900| 50 6f 73 28 4c 4e 52 65 | 66 4e 75 6d 2c 20 66 73 |Pos(LNRe|fNum, fs|
|00001910| 46 72 6f 6d 53 74 61 72 | 74 2c 20 30 29 3b 0d 09 |FromStar|t, 0);..|
|00001920| 09 09 09 4c 61 75 6e 63 | 68 43 6f 75 6e 74 20 3a |...Launc|hCount :|
|00001930| 3d 20 30 3b 0d 09 09 09 | 09 77 68 69 6c 65 20 28 |= 0;....|.while (|
|00001940| 4c 4e 43 68 61 72 20 3c | 3e 20 63 68 72 28 31 33 |LNChar <|> chr(13|
|00001950| 29 29 20 26 20 28 4c 61 | 75 6e 63 68 43 6f 75 6e |)) & (La|unchCoun|
|00001960| 74 20 3c 3d 20 6c 6f 67 | 69 63 61 6c 45 4f 46 29 |t <= log|icalEOF)|
|00001970| 20 64 6f 0d 09 09 09 09 | 09 62 65 67 69 6e 0d 09 | do.....|.begin..|
|00001980| 09 09 09 09 09 77 68 69 | 6c 65 20 28 4c 4e 43 68 |.....whi|le (LNCh|
|00001990| 61 72 20 3c 3e 20 27 2c | 27 29 20 26 20 28 4c 4e |ar <> ',|') & (LN|
|000019a0| 43 68 61 72 20 3c 3e 20 | 63 68 72 28 31 33 29 29 |Char <> |chr(13))|
|000019b0| 20 26 20 28 4c 61 75 6e | 63 68 43 6f 75 6e 74 20 | & (Laun|chCount |
|000019c0| 3c 3d 20 6c 6f 67 69 63 | 61 6c 45 4f 46 29 20 64 |<= logic|alEOF) d|
|000019d0| 6f 0d 09 09 09 09 09 09 | 09 62 65 67 69 6e 0d 09 |o.......|.begin..|
|000019e0| 09 09 09 09 09 09 09 69 | 66 20 28 4c 4e 43 68 61 |.......i|f (LNCha|
|000019f0| 72 20 3c 3e 20 63 68 72 | 28 32 35 35 29 29 20 74 |r <> chr|(255)) t|
|00001a00| 68 65 6e 0d 09 09 09 09 | 09 09 09 09 09 54 68 69 |hen.....|.....Thi|
|00001a10| 73 45 76 65 6e 74 20 3a | 3d 20 63 6f 6e 63 61 74 |sEvent :|= concat|
|00001a20| 28 54 68 69 73 45 76 65 | 6e 74 2c 20 4c 4e 43 68 |(ThisEve|nt, LNCh|
|00001a30| 61 72 29 3b 0d 09 09 09 | 09 09 09 09 09 4c 61 75 |ar);....|.....Lau|
|00001a40| 6e 63 68 43 6f 75 6e 74 | 20 3a 3d 20 4c 61 75 6e |nchCount| := Laun|
|00001a50| 63 68 43 6f 75 6e 74 20 | 2b 20 31 3b 0d 09 09 09 |chCount |+ 1;....|
|00001a60| 09 09 09 09 09 51 75 61 | 6e 74 69 74 79 20 3a 3d |.....Qua|ntity :=|
|00001a70| 20 31 3b 0d 09 09 09 09 | 09 09 09 09 46 69 6c 65 | 1;.....|....File|
|00001a80| 45 72 72 6f 72 20 3a 3d | 20 46 53 52 65 61 64 28 |Error :=| FSRead(|
|00001a90| 4c 4e 52 65 66 4e 75 6d | 2c 20 51 75 61 6e 74 69 |LNRefNum|, Quanti|
|00001aa0| 74 79 2c 20 40 4c 4e 43 | 68 61 72 29 3b 0d 09 09 |ty, @LNC|har);...|
|00001ab0| 09 09 09 09 09 09 4c 4e | 43 68 61 72 20 3a 3d 20 |......LN|Char := |
|00001ac0| 63 68 72 28 6f 72 64 28 | 4c 4e 43 68 61 72 29 20 |chr(ord(|LNChar) |
|00001ad0| 64 69 76 20 32 35 36 29 | 3b 0d 09 09 09 09 09 09 |div 256)|;.......|
|00001ae0| 09 65 6e 64 3b 09 09 09 | 7b 20 28 4c 4e 43 68 61 |.end;...|{ (LNCha|
|00001af0| 72 20 3c 3e 20 27 2c 27 | 29 20 26 20 28 4c 4e 43 |r <> ','|) & (LNC|
|00001b00| 68 61 72 20 3c 3e 20 63 | 68 72 28 31 35 29 29 20 |har <> c|hr(15)) |
|00001b10| 26 20 28 4c 61 75 6e 63 | 68 43 6f 75 6e 74 20 3c |& (Launc|hCount <|
|00001b20| 3d 20 6c 6f 67 69 63 61 | 6c 45 4f 46 29 20 7d 0d |= logica|lEOF) }.|
|00001b30| 09 09 09 09 09 09 45 76 | 65 6e 74 5b 45 76 65 6e |......Ev|ent[Even|
|00001b40| 74 43 6f 75 6e 74 65 72 | 5d 20 3a 3d 20 54 68 69 |tCounter|] := Thi|
|00001b50| 73 45 76 65 6e 74 3b 0d | 09 09 09 09 09 09 45 76 |sEvent;.|......Ev|
|00001b60| 65 6e 74 43 6f 75 6e 74 | 65 72 20 3a 3d 20 45 76 |entCount|er := Ev|
|00001b70| 65 6e 74 43 6f 75 6e 74 | 65 72 20 2b 20 31 3b 0d |entCount|er + 1;.|
|00001b80| 09 09 09 09 09 09 54 68 | 69 73 45 76 65 6e 74 20 |......Th|isEvent |
|00001b90| 3a 3d 20 27 27 3b 0d 09 | 09 09 09 09 09 4c 4e 43 |:= '';..|.....LNC|
|00001ba0| 68 61 72 20 3a 3d 20 63 | 68 72 28 32 35 35 29 0d |har := c|hr(255).|
|00001bb0| 09 09 09 09 09 65 6e 64 | 3b 09 09 09 7b 20 28 4c |.....end|;...{ (L|
|00001bc0| 4e 43 68 61 72 20 3c 3e | 20 63 68 72 28 31 33 29 |NChar <>| chr(13)|
|00001bd0| 29 20 26 20 28 4c 61 75 | 6e 63 68 43 6f 75 6e 74 |) & (Lau|nchCount|
|00001be0| 20 3c 3d 20 6c 6f 67 69 | 63 61 6c 45 4f 46 29 20 | <= logi|calEOF) |
|00001bf0| 7d 0d 09 09 09 09 46 69 | 6c 65 45 72 72 6f 72 20 |}.....Fi|leError |
|00001c00| 3a 3d 20 46 53 43 6c 6f | 73 65 28 4c 4e 52 65 66 |:= FSClo|se(LNRef|
|00001c10| 4e 75 6d 29 3b 0d 09 09 | 09 09 46 69 6c 65 45 72 |Num);...|..FileEr|
|00001c20| 72 6f 72 20 3a 3d 20 46 | 53 44 65 6c 65 74 65 28 |ror := F|SDelete(|
|00001c30| 27 6c 61 75 6e 63 68 2e | 6e 65 78 74 27 2c 20 76 |'launch.|next', v|
|00001c40| 52 65 66 4e 75 6d 29 3b | 0d 09 09 09 09 45 76 65 |RefNum);|.....Eve|
|00001c50| 6e 74 4c 69 6d 69 74 20 | 3a 3d 20 28 45 76 65 6e |ntLimit |:= (Even|
|00001c60| 74 43 6f 75 6e 74 65 72 | 20 2d 20 32 29 3b 0d 09 |tCounter| - 2);..|
|00001c70| 09 09 09 69 66 20 45 76 | 65 6e 74 4c 69 6d 69 74 |...if Ev|entLimit|
|00001c80| 20 3e 20 31 20 74 68 65 | 6e 0d 09 09 09 09 09 62 | > 1 the|n......b|
|00001c90| 65 67 69 6e 0d 09 09 09 | 09 09 09 46 69 6c 65 45 |egin....|...FileE|
|00001ca0| 72 72 6f 72 20 3a 3d 20 | 43 72 65 61 74 65 28 27 |rror := |Create('|
|00001cb0| 6c 61 75 6e 63 68 2e 6e | 65 78 74 27 2c 20 76 52 |launch.n|ext', vR|
|00001cc0| 65 66 4e 75 6d 2c 20 27 | 51 55 45 44 27 2c 20 27 |efNum, '|QUED', '|
|00001cd0| 54 45 58 54 27 29 3b 0d | 09 09 09 09 09 09 46 69 |TEXT');.|......Fi|
|00001ce0| 6c 65 45 72 72 6f 72 20 | 3a 3d 20 46 53 4f 70 65 |leError |:= FSOpe|
|00001cf0| 6e 28 27 6c 61 75 6e 63 | 68 2e 6e 65 78 74 27 2c |n('launc|h.next',|
|00001d00| 20 76 52 65 66 4e 75 6d | 2c 20 4c 4e 52 65 66 4e | vRefNum|, LNRefN|
|00001d10| 75 6d 29 3b 0d 09 09 09 | 09 09 09 46 69 6c 65 45 |um);....|...FileE|
|00001d20| 72 72 6f 72 20 3a 3d 20 | 53 65 74 46 50 6f 73 28 |rror := |SetFPos(|
|00001d30| 4c 4e 52 65 66 4e 75 6d | 2c 20 66 73 46 72 6f 6d |LNRefNum|, fsFrom|
|00001d40| 53 74 61 72 74 2c 20 30 | 29 3b 0d 09 09 09 09 09 |Start, 0|);......|
|00001d50| 09 43 68 61 72 49 6e 64 | 65 78 20 3a 3d 20 30 3b |.CharInd|ex := 0;|
|00001d60| 0d 09 09 09 09 09 09 66 | 6f 72 20 45 76 65 6e 74 |.......f|or Event|
|00001d70| 43 6f 75 6e 74 65 72 20 | 3a 3d 20 32 20 74 6f 20 |Counter |:= 2 to |
|00001d80| 45 76 65 6e 74 4c 69 6d | 69 74 20 64 6f 0d 09 09 |EventLim|it do...|
|00001d90| 09 09 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |.....beg|in......|
|00001da0| 09 09 09 54 65 6d 70 53 | 74 72 69 6e 67 20 3a 3d |...TempS|tring :=|
|00001db0| 20 45 76 65 6e 74 5b 45 | 76 65 6e 74 43 6f 75 6e | Event[E|ventCoun|
|00001dc0| 74 65 72 5d 3b 0d 09 09 | 09 09 09 09 09 09 66 6f |ter];...|......fo|
|00001dd0| 72 20 43 68 61 72 43 6f | 75 6e 74 20 3a 3d 20 31 |r CharCo|unt := 1|
|00001de0| 20 74 6f 20 6c 65 6e 67 | 74 68 28 54 65 6d 70 53 | to leng|th(TempS|
|00001df0| 74 72 69 6e 67 29 20 64 | 6f 0d 09 09 09 09 09 09 |tring) d|o.......|
|00001e00| 09 09 09 54 68 65 43 68 | 61 72 73 5b 43 68 61 72 |...TheCh|ars[Char|
|00001e10| 49 6e 64 65 78 20 2b 20 | 43 68 61 72 43 6f 75 6e |Index + |CharCoun|
|00001e20| 74 5d 20 3a 3d 20 54 65 | 6d 70 53 74 72 69 6e 67 |t] := Te|mpString|
|00001e30| 5b 43 68 61 72 43 6f 75 | 6e 74 5d 3b 0d 09 09 09 |[CharCou|nt];....|
|00001e40| 09 09 09 09 09 43 68 61 | 72 49 6e 64 65 78 20 3a |.....Cha|rIndex :|
|00001e50| 3d 20 43 68 61 72 49 6e | 64 65 78 20 2b 20 6c 65 |= CharIn|dex + le|
|00001e60| 6e 67 74 68 28 54 65 6d | 70 53 74 72 69 6e 67 29 |ngth(Tem|pString)|
|00001e70| 20 2b 20 31 3b 0d 09 09 | 09 09 09 09 09 09 69 66 | + 1;...|......if|
|00001e80| 20 45 76 65 6e 74 43 6f | 75 6e 74 65 72 20 3c 3e | EventCo|unter <>|
|00001e90| 20 45 76 65 6e 74 4c 69 | 6d 69 74 20 74 68 65 6e | EventLi|mit then|
|00001ea0| 0d 09 09 09 09 09 09 09 | 09 09 54 68 65 43 68 61 |........|..TheCha|
|00001eb0| 72 73 5b 43 68 61 72 49 | 6e 64 65 78 5d 20 3a 3d |rs[CharI|ndex] :=|
|00001ec0| 20 27 2c 27 0d 09 09 09 | 09 09 09 09 09 65 6c 73 | ','....|.....els|
|00001ed0| 65 0d 09 09 09 09 09 09 | 09 09 09 54 68 65 43 68 |e.......|...TheCh|
|00001ee0| 61 72 73 5b 43 68 61 72 | 49 6e 64 65 78 5d 20 3a |ars[Char|Index] :|
|00001ef0| 3d 20 45 4e 44 4c 49 4e | 45 3b 0d 09 09 09 09 09 |= ENDLIN|E;......|
|00001f00| 09 09 65 6e 64 3b 20 7b | 43 6f 75 6e 74 65 72 20 |..end; {|Counter |
|00001f10| 6c 6f 6f 70 7d 0d 09 09 | 09 09 09 09 46 69 6c 65 |loop}...|....File|
|00001f20| 45 72 72 6f 72 20 3a 3d | 20 46 53 57 72 69 74 65 |Error :=| FSWrite|
|00001f30| 28 4c 4e 52 65 66 4e 75 | 6d 2c 20 43 68 61 72 49 |(LNRefNu|m, CharI|
|00001f40| 6e 64 65 78 2c 20 40 54 | 68 65 43 68 61 72 73 29 |ndex, @T|heChars)|
|00001f50| 3b 0d 09 09 09 09 09 09 | 46 69 6c 65 45 72 72 6f |;.......|FileErro|
|00001f60| 72 20 3a 3d 20 46 53 43 | 6c 6f 73 65 28 4c 4e 52 |r := FSC|lose(LNR|
|00001f70| 65 66 4e 75 6d 29 3b 0d | 09 09 09 09 09 09 46 69 |efNum);.|......Fi|
|00001f80| 6c 65 45 72 72 6f 72 20 | 3a 3d 20 46 6c 75 73 68 |leError |:= Flush|
|00001f90| 56 6f 6c 28 40 76 6f 6c | 4e 61 6d 65 2c 20 76 52 |Vol(@vol|Name, vR|
|00001fa0| 65 66 4e 75 6d 29 3b 0d | 09 09 09 09 09 65 6e 64 |efNum);.|.....end|
|00001fb0| 3b 20 7b 45 76 65 6e 74 | 4c 69 6d 69 74 20 3e 20 |; {Event|Limit > |
|00001fc0| 31 7d 0d 09 09 09 09 69 | 66 20 45 76 65 6e 74 4c |1}.....i|f EventL|
|00001fd0| 69 6d 69 74 20 3e 20 30 | 20 74 68 65 6e 0d 09 09 |imit > 0| then...|
|00001fe0| 09 09 09 4e 65 78 74 4c | 61 75 6e 63 68 20 3a 3d |...NextL|aunch :=|
|00001ff0| 20 45 76 65 6e 74 5b 31 | 5d 3b 0d 09 09 09 09 54 | Event[1|];.....T|
|00002000| 65 6d 70 53 74 72 69 6e | 67 20 3a 3d 20 4e 65 78 |empStrin|g := Nex|
|00002010| 74 4c 61 75 6e 63 68 3b | 0d 09 09 09 09 55 70 72 |tLaunch;|.....Upr|
|00002020| 53 74 72 69 6e 67 28 54 | 65 6d 70 53 74 72 69 6e |String(T|empStrin|
|00002030| 67 2c 20 66 61 6c 73 65 | 29 3b 0d 09 09 09 09 69 |g, false|);.....i|
|00002040| 66 20 54 65 6d 70 53 74 | 72 69 6e 67 20 3d 20 27 |f TempSt|ring = '|
|00002050| 42 42 53 27 20 74 68 65 | 6e 0d 09 09 09 09 09 62 |BBS' the|n......b|
|00002060| 65 67 69 6e 0d 09 09 09 | 09 09 09 46 69 6c 65 45 |egin....|...FileE|
|00002070| 72 72 6f 72 20 3a 3d 20 | 46 53 4f 70 65 6e 28 27 |rror := |FSOpen('|
|00002080| 54 61 62 62 79 3a 54 61 | 62 62 79 20 53 65 74 75 |Tabby:Ta|bby Setu|
|00002090| 70 27 2c 20 76 52 65 66 | 4e 75 6d 2c 20 53 65 74 |p', vRef|Num, Set|
|000020a0| 75 70 52 65 66 29 3b 0d | 09 09 09 09 09 09 69 66 |upRef);.|......if|
|000020b0| 20 46 69 6c 65 45 72 72 | 6f 72 20 3d 20 4e 6f 45 | FileErr|or = NoE|
|000020c0| 72 72 20 74 68 65 6e 0d | 09 09 09 09 09 09 09 46 |rr then.|.......F|
|000020d0| 69 6c 65 45 72 72 6f 72 | 20 3a 3d 20 47 65 74 45 |ileError| := GetE|
|000020e0| 4f 46 28 53 65 74 75 70 | 52 65 66 2c 20 6c 6f 67 |OF(Setup|Ref, log|
|000020f0| 69 63 61 6c 45 4f 46 29 | 3b 0d 09 09 09 09 09 09 |icalEOF)|;.......|
|00002100| 69 66 20 28 6c 6f 67 69 | 63 61 6c 45 4f 46 20 3e |if (logi|calEOF >|
|00002110| 20 30 29 20 26 20 28 46 | 69 6c 65 45 72 72 6f 72 | 0) & (F|ileError|
|00002120| 20 3d 20 4e 6f 45 72 72 | 29 20 74 68 65 6e 0d 09 | = NoErr|) then..|
|00002130| 09 09 09 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |......be|gin.....|
|00002140| 09 09 09 09 46 69 6c 65 | 45 72 72 6f 72 20 3a 3d |....File|Error :=|
|00002150| 20 53 65 74 46 50 6f 73 | 28 53 65 74 75 70 52 65 | SetFPos|(SetupRe|
|00002160| 66 2c 20 66 73 46 72 6f | 6d 53 74 61 72 74 2c 20 |f, fsFro|mStart, |
|00002170| 30 29 3b 0d 09 09 09 09 | 09 09 09 09 42 42 53 4e |0);.....|....BBSN|
|00002180| 61 6d 65 20 3a 3d 20 27 | 27 3b 0d 09 09 09 09 09 |ame := '|';......|
|00002190| 09 09 09 51 75 61 6e 74 | 69 74 79 20 3a 3d 20 31 |...Quant|ity := 1|
|000021a0| 3b 0d 09 09 09 09 09 09 | 09 09 42 42 53 42 79 74 |;.......|..BBSByt|
|000021b0| 65 20 3a 3d 20 30 3b 0d | 09 09 09 09 09 09 09 09 |e := 0;.|........|
|000021c0| 53 65 74 75 70 43 6f 75 | 6e 74 20 3a 3d 20 30 3b |SetupCou|nt := 0;|
|000021d0| 0d 09 09 09 09 09 09 09 | 09 77 68 69 6c 65 20 28 |........|.while (|
|000021e0| 42 42 53 42 79 74 65 20 | 3c 3e 20 31 33 29 20 26 |BBSByte |<> 13) &|
|000021f0| 20 28 53 65 74 75 70 43 | 6f 75 6e 74 20 3c 3d 20 | (SetupC|ount <= |
|00002200| 6c 6f 67 69 63 61 6c 45 | 4f 46 29 20 64 6f 0d 09 |logicalE|OF) do..|
|00002210| 09 09 09 09 09 09 09 09 | 62 65 67 69 6e 0d 09 09 |........|begin...|
|00002220| 09 09 09 09 09 09 09 09 | 46 69 6c 65 45 72 72 6f |........|FileErro|
|00002230| 72 20 3a 3d 20 46 53 52 | 65 61 64 28 4c 4e 52 65 |r := FSR|ead(LNRe|
|00002240| 66 4e 75 6d 2c 20 51 75 | 61 6e 74 69 74 79 2c 20 |fNum, Qu|antity, |
|00002250| 40 42 42 53 42 79 74 65 | 29 3b 0d 09 09 09 09 09 |@BBSByte|);......|
|00002260| 09 09 09 09 09 69 66 20 | 42 42 53 42 79 74 65 20 |.....if |BBSByte |
|00002270| 3c 3e 20 31 33 20 74 68 | 65 6e 0d 09 09 09 09 09 |<> 13 th|en......|
|00002280| 09 09 09 09 09 09 42 42 | 53 4e 61 6d 65 20 3a 3d |......BB|SName :=|
|00002290| 20 63 6f 6e 63 61 74 28 | 42 42 53 4e 61 6d 65 2c | concat(|BBSName,|
|000022a0| 20 63 68 72 28 42 42 53 | 42 79 74 65 29 29 3b 0d | chr(BBS|Byte));.|
|000022b0| 09 09 09 09 09 09 09 09 | 09 65 6e 64 3b 09 09 7b |........|.end;..{|
|000022c0| 09 77 68 69 6c 65 20 28 | 42 42 53 42 79 74 65 20 |.while (|BBSByte |
|000022d0| 3c 3e 20 31 33 29 20 26 | 20 28 53 65 74 75 70 43 |<> 13) &| (SetupC|
|000022e0| 6f 75 6e 74 20 3c 3d 20 | 6c 6f 67 69 63 61 6c 45 |ount <= |logicalE|
|000022f0| 4f 46 29 09 7d 0d 09 09 | 09 09 09 09 09 09 46 69 |OF).}...|......Fi|
|00002300| 6c 65 45 72 72 6f 72 20 | 3a 3d 20 46 53 43 6c 6f |leError |:= FSClo|
|00002310| 73 65 28 53 65 74 75 70 | 52 65 66 29 3b 0d 09 09 |se(Setup|Ref);...|
|00002320| 09 09 09 09 09 09 4e 65 | 78 74 4c 61 75 6e 63 68 |......Ne|xtLaunch|
|00002330| 20 3a 3d 20 42 42 53 4e | 61 6d 65 3b 0d 09 09 09 | := BBSN|ame;....|
|00002340| 09 09 09 09 65 6e 64 09 | 09 7b 09 69 66 20 6c 6f |....end.|.{.if lo|
|00002350| 67 69 63 61 6c 45 4f 46 | 20 3e 20 30 20 66 6f 72 |gicalEOF| > 0 for|
|00002360| 20 27 54 61 62 62 79 3a | 54 61 62 62 79 20 53 65 | 'Tabby:|Tabby Se|
|00002370| 74 75 70 27 09 7d 0d 09 | 09 09 09 09 65 6e 64 3b |tup'.}..|....end;|
|00002380| 09 09 7b 09 69 66 20 54 | 65 6d 70 53 74 72 69 6e |..{.if T|empStrin|
|00002390| 67 20 3d 20 27 42 42 53 | 27 20 09 7d 0d 09 09 09 |g = 'BBS|' .}....|
|000023a0| 65 6e 64 09 09 7b 09 69 | 66 20 6c 6f 67 69 63 61 |end..{.i|f logica|
|000023b0| 6c 45 4f 46 20 3e 20 30 | 20 66 6f 72 20 27 6c 61 |lEOF > 0| for 'la|
|000023c0| 75 6e 63 68 2e 6e 65 78 | 74 27 09 7d 0d 09 09 65 |unch.nex|t'.}...e|
|000023d0| 6c 73 65 0d 09 09 09 62 | 65 67 69 6e 0d 09 09 09 |lse....b|egin....|
|000023e0| 09 46 69 6c 65 45 72 72 | 6f 72 20 3a 3d 20 46 53 |.FileErr|or := FS|
|000023f0| 43 6c 6f 73 65 28 4c 4e | 52 65 66 4e 75 6d 29 3b |Close(LN|RefNum);|
|00002400| 0d 09 09 09 09 46 69 6c | 65 45 72 72 6f 72 20 3a |.....Fil|eError :|
|00002410| 3d 20 46 53 44 65 6c 65 | 74 65 28 27 6c 61 75 6e |= FSDele|te('laun|
|00002420| 63 68 2e 6e 65 78 74 27 | 2c 20 76 52 65 66 4e 75 |ch.next'|, vRefNu|
|00002430| 6d 29 0d 09 09 09 65 6e | 64 3b 0d 09 09 46 69 6c |m)....en|d;...Fil|
|00002440| 65 45 72 72 6f 72 20 3a | 3d 20 47 65 74 46 49 6e |eError :|= GetFIn|
|00002450| 66 6f 28 4e 65 78 74 4c | 61 75 6e 63 68 2c 20 76 |fo(NextL|aunch, v|
|00002460| 52 65 66 4e 75 6d 2c 20 | 66 6e 64 72 49 6e 66 6f |RefNum, |fndrInfo|
|00002470| 29 3b 09 7b 09 49 73 20 | 69 74 20 61 6e 20 61 70 |);.{.Is |it an ap|
|00002480| 70 6c 69 63 61 74 69 6f | 6e 3f 09 7d 0d 09 09 69 |plicatio|n?.}...i|
|00002490| 66 20 28 46 69 6c 65 45 | 72 72 6f 72 20 3c 3e 20 |f (FileE|rror <> |
|000024a0| 6e 6f 45 72 72 29 20 7c | 20 28 66 6e 64 72 49 6e |noErr) || (fndrIn|
|000024b0| 66 6f 2e 66 64 54 79 70 | 65 20 3c 3e 20 27 41 50 |fo.fdTyp|e <> 'AP|
|000024c0| 50 4c 27 29 20 74 68 65 | 6e 0d 09 09 09 4e 65 78 |PL') the|n....Nex|
|000024d0| 74 4c 61 75 6e 63 68 20 | 3a 3d 20 27 27 0d 09 65 |tLaunch |:= ''..e|
|000024e0| 6e 64 3b 09 09 09 7b 20 | 48 65 6c 6c 6f 54 61 62 |nd;...{ |HelloTab|
|000024f0| 62 79 20 70 72 6f 63 65 | 64 75 72 65 20 7d 0d 65 |by proce|dure }.e|
|00002500| 6e 64 2e 09 09 09 09 7b | 20 55 6e 69 74 20 7d 00 |nd.....{| Unit }.|
|00002510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002580| 00 00 01 00 00 00 01 3c | 00 00 00 3c 00 00 00 5a |.......<|...<...Z|
|00002590| 1d 41 ff e9 4a 2e ff de | 66 10 52 2e ff de 3d 6e |.A..J...|f.R...=n|
|000025a0| ff f0 ff f4 3d 6e ff e0 | ff e4 45 ee ff f0 61 00 |....=n..|..E...a.|
|000025b0| 0c 48 65 6c 6c 6f 54 61 | 62 62 79 2e 70 9a 02 00 |.HelloTa|bby.p...|
|000025c0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000025d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000025e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025f0| 00 00 a9 80 19 f2 00 00 | 00 00 00 00 01 96 ff dc |........|........|
|00002600| 66 06 4a 2e ff df 67 f0 | 70 ff 60 02 70 00 3d 40 |f.J...g.|p.`.p.=@|
|00002610| 00 14 30 2c 00 0a 4e b4 | 00 00 61 00 f9 ee 4c df |..0,..N.|..a...L.|
|00002620| 1c 78 4e 5e 20 5f de fc | 00 0c 4e d0 4a 2e ff de |.xN^ _..|..N.J...|
|00002630| 67 da 4a 2e ff df 67 d4 | 45 ee ff f4 61 16 3c 04 |g.J...g.|E...a.<.|
|00002640| 45 ee ff e4 61 0e bc 44 | 66 ac 10 2e ff f7 b0 2e |E...a..D|f.......|
|00002650| ff e7 60 a0 18 1a 1a 12 | 30 2c 00 04 4e b4 00 00 |..`.....|0,..N...|
|00002660| 66 26 4a 05 66 22 47 fa | 00 26 b8 1b 65 1a b8 1b |f&J.f"G.|.&..e...|
|00002670| 62 06 06 04 00 22 60 10 | b8 1b 67 08 54 8b 4a 13 |b...."`.|..g.T.J.|
|00002680| 00 00 00 2a 00 09 06 4d | 6f 6e 61 63 6f 00 00 00 |...*...M|onaco...|
|00002690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026b0| 00 04 00 06 00 08 00 00 | 00 02 05 fa 00 00 01 00 |........|........|
|000026c0| 00 00 01 3c 00 00 00 3c | 00 00 00 5a 00 08 99 44 |...<...<|...Z...D|
|000026d0| 0c 7e 00 00 00 1c 00 5a | 00 02 45 46 4e 54 00 00 |.~.....Z|..EFNT..|
|000026e0| 00 1a 45 54 41 42 00 00 | 00 26 45 51 45 44 00 00 |..ETAB..|.&EQED..|
|000026f0| 00 32 03 eb ff ff 00 00 | 00 00 00 00 00 00 03 ec |.2......|........|
|00002700| ff ff 00 00 00 2e 00 00 | 00 00 03 eb ff ff 00 00 |........|........|
|00002710| 00 36 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.6......|........|
|00002720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+